home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / ctlib100.zip / INSTALL.LZH / BSDTEST.INT < prev    next >
Text File  |  1996-10-12  |  1KB  |  56 lines
  1. {**************************************************************************}
  2. {*  BitSoft Development, L.L.C.                                           *}
  3. {*  Copyright (C) 1995, 1996 BitSoft Development, L.L.C.                  *}
  4. {*  All rights reserved.                                                  *}
  5. {*  Global test utilites                                                  *}
  6. {*  Version 1.1.5                                                         *}
  7. {**************************************************************************}
  8.  
  9. unit BsdTest;
  10.  
  11. interface
  12.  
  13. uses {$ifdef Windows}
  14.      WinDos;
  15.      {$else}
  16.      Dos;
  17.      {$endif}
  18.  
  19. type
  20.   TimeRec = record
  21.     Hour : Word;
  22.     Min : Word;
  23.     Sec : Word;
  24.     Sec100 : Word;
  25.   end;
  26.  
  27. var
  28.   InitTime : TimeRec;
  29.  
  30.   FinalTime : TimeRec;
  31.  
  32. function CalculateTime: String;
  33.  
  34. {$ifndef ver60}
  35. procedure Error (const AMessage : string);
  36. {$else}
  37. procedure Error (AMessage : string);
  38. {$endif}
  39.  
  40. function GetYesNo : Char;
  41.  
  42. {$ifndef ver60}
  43. procedure Message (const AMessage : string);
  44. {$else}
  45. procedure Message (AMessage : string);
  46. {$endif}
  47.  
  48. procedure Pause;
  49.  
  50. procedure SetFinalTime;
  51.  
  52. procedure SetInitTime;
  53.  
  54. implementation
  55. end.
  56.